<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>39</cardCount>
<cardID>4163</cardID>
<listID>2192</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>270</height>
</cardSize>
<script>---- Utility routines--On ResetScrollBars-- leaves all scroll bars nice and tidy.Unmark all cardsMark cards where the scroll of background field "Description" ≠ 0RepeatGo to next marked cardIf not the marked of this card thenExit repeatEnd IfSet scroll of background field "Description" to 0Unmark this cardEnd RepeatEnd ResetScrollBarsOn CopyDescription-- copies the contents of the “Description” field to-- the Clipboard. Works even if the field is locked.Select char 1 to (the length of background field "Description") ¬of background field "Description"DoMenu "Copy Text"Select emptyEnd CopyDescriptionOn UnlockFields-- unlocks all background fields.Repeat with i = 1 to the number of background fieldsIf not the SharedText of background field i thenSet LockText of background field i to falseEnd IfEnd RepeatEnd UnlockFieldsOn LockFields-- locks all background fields.Repeat with i = 1 to the number of background fieldsSet LockText of background field i to trueEnd RepeatIf the FreeSize of this stack ≠ 0 thenDoMenu "Compact Stack"End IfEnd LockFieldsOn StripTabs-- strips tab characters from all fields.If the LockText of background field "Name" thenAnswer "Unlock fields first."Exit StripTabsEnd IfRepeatFind string TabIf the result is not empty thenExit RepeatEnd IfPut space into the foundchunkEnd RepeatEnd StripTabsOn SortCards-- sorts cards by background field “Name”If the LockText of background field "Name" thenAnswer "Unlock fields first."Exit SortCardsEnd IfPush this cardSort this background by field "Name"Pop cardEnd SortCardsOn WhiteOutButton ButtonID-- paints a white rectangle matching the bounds of-- the specified background button. Make sure you’re-- in background edit mode before invoking this routine.Choose select toolDrag from the left of background button id ButtonID, ¬the top of background button id ButtonID to ¬the right of background button id ButtonID, ¬the bottom of background button id ButtonIDDoMenu "Clear Picture"Choose rect toolDrag from the left of background button id ButtonID, ¬the top of background button id ButtonID to ¬the right of background button id ButtonID, ¬the bottom of background button id ButtonIDChoose browse toolEnd WhiteOutButtonOn DeleteAllCards-- gets rid of all cards in this background except one,-- and empties all fields in the remaining card.If the LockText of background field "Name" thenAnswer "Unlock fields first."Exit DeleteAllCardsEnd IfAnswer "Really delete all cards?" with "Do It" or "I’m a Teapot"If it is not "Do It" thenExit DeleteAllCardsEnd IfGo to first card of this backgroundPut 0 into CardsDeletedRepeat with i = 1 to the number of cards in this background - 1Set cursor to busyDoMenu "Delete Card"Add 1 to CardsDeletedIf CardsDeleted = 100 thenDoMenu "Compact Stack"Put 0 into CardsDeletedEnd IfEnd RepeatRepeat with i = 1 to the number of background fieldsIf not the SharedText of background field i thenPut empty into background field iEnd IfEnd RepeatIf CardsDeleted ≠ 0 thenDoMenu "Compact Stack"End IfEnd DeleteAllCards</script>
